home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programmer's Power Pack / Delphi Volume 1.iso / s_to_z / t_rex10 / trexdm02.dfm / trexdm02.txt
Text File  |  1996-09-15  |  2KB  |  111 lines
  1. object Form1: TForm1
  2.   Left = 177
  3.   Top = 102
  4.   Width = 435
  5.   Height = 234
  6.   Caption = 'T-Rex Demo Program'
  7.   Font.Color = clBlack
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   TextHeight = 13
  13.   object Bevel1: TBevel
  14.     Left = 24
  15.     Top = 8
  16.     Width = 377
  17.     Height = 101
  18.   end
  19.   object Bevel2: TBevel
  20.     Left = 24
  21.     Top = 148
  22.     Width = 377
  23.     Height = 53
  24.   end
  25.   object Label2: TLabel
  26.     Left = 32
  27.     Top = 152
  28.     Width = 361
  29.     Height = 25
  30.     Alignment = taCenter
  31.     AutoSize = False
  32.     WordWrap = True
  33.   end
  34.   object Label1: TLabel
  35.     Left = 32
  36.     Top = 12
  37.     Width = 361
  38.     Height = 41
  39.     AutoSize = False
  40.     Caption = 
  41.       'This demo program illustrates one use of the T-Rex component. It' +
  42.       ' scans a text file that you specify and reports on the commonest' +
  43.       ' ten words in the file. A "word" is anything that contains only ' +
  44.       'letters, hyphens and apostrophes.'
  45.     WordWrap = True
  46.   end
  47.   object Label3: TLabel
  48.     Left = 32
  49.     Top = 56
  50.     Width = 361
  51.     Height = 45
  52.     AutoSize = False
  53.     Caption = 
  54.       'This demo uses the OnToken event. We recommend that you choose e' +
  55.       'ither the OnToken event or the OnMatch event, but that you don'#39't' +
  56.       ' try to use both in the same pass over the same file.'
  57.     WordWrap = True
  58.   end
  59.   object Gauge1: TGauge
  60.     Left = 32
  61.     Top = 180
  62.     Width = 361
  63.     Height = 16
  64.     Progress = 0
  65.   end
  66.   object Button1: TButton
  67.     Left = 24
  68.     Top = 116
  69.     Width = 105
  70.     Height = 25
  71.     Caption = 'Specify &Input File'
  72.     TabOrder = 0
  73.     OnClick = Button1Click
  74.   end
  75.   object Button2: TButton
  76.     Left = 160
  77.     Top = 116
  78.     Width = 105
  79.     Height = 25
  80.     Caption = '&Scan'
  81.     Enabled = False
  82.     TabOrder = 1
  83.     OnClick = Button2Click
  84.   end
  85.   object BitBtn1: TBitBtn
  86.     Left = 296
  87.     Top = 116
  88.     Width = 105
  89.     Height = 25
  90.     TabOrder = 2
  91.     Kind = bkClose
  92.   end
  93.   object Rex1: TRex
  94.     InputSeparator = '[ .,?!&()/:;=+-]+'
  95.     LineSeparator = '\n'
  96.     OnBOF = Rex1BOF
  97.     OnEOF = Rex1EOF
  98.     BeforeLineMatch = Rex1BeforeLineMatch
  99.     OnToken = Rex1Token
  100.     Left = 8
  101.   end
  102.   object OpenDialog1: TOpenDialog
  103.     DefaultExt = 'pas'
  104.     Filter = 
  105.       'Pascal source (*.pas)|*.pas|Text files (*.txt)|*.txt|All files (' +
  106.       '*.*)|*.*'
  107.     Options = [ofPathMustExist, ofFileMustExist]
  108.     Left = 48
  109.   end
  110. end
  111.